home *** CD-ROM | disk | FTP | other *** search
/ Pipo Aprende Musica Con Pipo / Pipo-Aprende musica con Pipo.iso / BIN / TB40ANM.SBK (.txt) < prev    next >
Asymetrix ToolBook File  |  1995-11-13  |  65KB  |  664 lines

  1. MS Sans Serif
  2. info_LastSavedBy
  3. /95 11:30:33 AM
  4. info_LastSaved
  5. Mike Florence
  6. Jeffrey Ayars
  7. MS Sans Serif
  8. Arial
  9. 8/11/95 11:38:17 AM
  10. 9411011714178865372342
  11. ASYM_TpID
  12. enterpage
  13. buttonclick
  14. notifyBefore 
  15. buttonclick
  16. Script
  17. ToolBook 4.0 - Runtime Path Animation SysBookkon SysBook
  18. Copyright 
  19.  1995 Asymetrix Corporation
  20. enterpage
  21. @F    ,    ,    K
  22. *ClassTbl*
  23. *ClassEntry*
  24. *PTABLE*
  25. *WINDOWSEG*
  26. Viewer
  27. *ICONRESTAB*
  28. *ICONRESSEG*
  29. *ICONRES*
  30. Background
  31. *OBJTABLE*
  32. *IDTABLE*
  33. *NAMETAB*
  34. Rectangle
  35. Ellipse
  36. RoundedRectangle
  37. Polygon
  38. IrregularPolygon
  39. AngledLine
  40. Curve
  41. Field
  42. RecordField
  43. ComboBox
  44. Button
  45. PaintObject
  46. Picture
  47. Hotword
  48. *RHOTWORD*
  49. Group
  50. Stage
  51. *TbxBase*
  52. "    BJTABLE*
  53.     ,    eld
  54. bxBase*
  55. "    ,    bxBase*
  56. --    SYSTEM message handlers related 
  57. animations
  58. linkSysbook
  59. setUpDlls
  60. -- traps 
  61. moved 
  62. repositions 
  63. x path 
  64. -- user has 
  65. xselected 
  66. coordinate 
  67. s_anim_idleAnimations
  68.     LOCAL newPos, settingsTable[][]
  69. "anim_animationSettings" 
  70.         ss = 
  71. = FALSE
  72. e<> "anim_edit"
  73. dimensions(
  74. ) <> 
  75. anim_startPosition(1) 
  76. dx = 
  77. dy = 
  78. i][13] 
  79. "Author" 
  80. anim_StartPosition(i) 
  81. + dx,
  82. 8(i) 
  83. --    These 
  84. are helper functions 
  85. startup            --
  86. LOGICAL sysSuspendState
  87. use instead 
  88. getTickCount()
  89.     -- IT's more accurate 
  90. calculating durations
  91.     linkDLL "mmSystem.dll"
  92.         DWORD a_timeGetTime=
  93. scripts 
  94. playing 
  95. playAnimation 
  96. , notifyObject, waitTillDone
  97. ns,s_anim_animationCache[][]
  98.  = NULL
  99. ) = 1
  100. only 
  101. which actually have 
  102.  = objectAnimation(
  103. ) = 0
  104.     theTarget = 
  105. ns) = 0
  106. startAnimTimer
  107. IT's already being animated on 
  108. Fstop 
  109. restart
  110. IT <> 
  111. IT = 
  112. he[i][3] <> 
  113. doneAnimatingNotify "Reset 
  114. he[i][12]
  115.         animCount = 
  116. ns = 
  117.             -- i 
  118. igger than 
  119.             -- because we 
  120. going 
  121. ns = 
  122. he[i][1] = 
  123. ()            --StartTime
  124. he[i][2] = 0
  125. --CurrentStep
  126. he[i][3] = 
  127. he[i][j] = 
  128. he[i][12] = 
  129. starting point 
  130.     lockScreen 
  131. e= TRUE
  132. he[i][6]
  133. he[i][4]
  134.         -- finish 
  135. 4continuing
  136. IT <> 
  137. playStep j 
  138. he[j][12]
  139. yieldApp()
  140. (sysMediaBreakKey) = down 
  141. IT <> 
  142. stopAnimation "aborted 
  143. he[i][12]
  144. ns = 
  145.         -- potential infinite loop (
  146. reps=forever) unless 
  147. presses Escape key 
  148. ns) = 0
  149. stopAnimTimer
  150. -- stops 
  151.  "During Idle" 
  152. Hremoving IT 
  153. status
  154. he[][]
  155. IT > 1
  156. IT <> 0 
  157. =    ns)
  158. IT <> 0 
  159.             IT = 0
  160. IT <> 0
  161.     ns = 
  162. he[IT][1] = 0
  163. he[IT][3]    --
  164. he[IT][12]
  165. there 
  166. animating 
  167. ns <> 
  168. entries 
  169. i > IT 
  170. IT = 0
  171. -- lets users specify a 
  172. jumpToStep whichStep, whichAnimation
  173. $ = 1
  174. ) > 0
  175.  < 0 
  176. )*4-3 
  177. fake out 
  178. /sized 
  179. tempSuspendMessages = sysSuspendMessages
  180. >= IT
  181. updateCel 
  182. [11],
  183.             anim_CurrentStep(
  184. a percent 
  185. full 
  186. length 
  187. jumpToPercent percentComplete, 
  188. ) > 0
  189.  < 0 
  190. +1)*4-3 
  191. +1)*4 
  192.             -- 
  193. >= IT
  194.             -- 
  195. [11],
  196. -- plays 
  197. -- called 
  198. "Without Yielding" 
  199.         currentAnim
  200. he[][]
  201. theTickCount,
  202. stepNumber,celNumber
  203. Q][5]; -- showing 
  204. frames
  205. z][2] + 1
  206.         -- 
  207.     IT should be on
  208.         -- 
  209. what 
  210. been covered 
  211. Hnow?
  212. %complete = [elapsed 
  213. Isince 
  214. mSec]
  215. ][1])/
  216. ][8]/1000
  217. ][9])
  218.  screen so 
  219.  happen simultaneously
  220.     ls = 
  221.  >= (
  222. ][9] * 
  223. ][7]) 
  224. ][7] <> 0
  225.             -- IT's 
  226. past 
  227.             -- 
  228. ][9] * 4 + 1
  229. IT + 3 
  230. ][10]
  231. >= IT
  232.             -- 
  233. fbuilt-
  234. ][11],
  235. ][9],
  236.             -- 
  237. queue 
  238. IT's on its 
  239. successful" 
  240.             -- 
  241. specified
  242. ][9]) -- 
  243. (IT+1)*4-3 
  244. (IT+1)*4 
  245. ][10]
  246. >= IT
  247.             -- 
  248. ][11],
  249.             -- 
  250.  currentStep
  251. ][2] = 
  252. e= ls
  253. -- hides 
  254. shows 
  255. , StepsPerCel, 
  256. previousstepNumber
  257. CelNumberToShow,CelNumberToHide,CelCount
  258. < so that 
  259.     -- (
  260. $    0 corresponds 
  261.     -- calculate 
  262. fregards 
  263.  -- so 
  264.  always starts 
  265. ) -- total Cels 
  266.  = 0 
  267.         -- i.e. n 
  268. kn = 0 
  269. Mwe want 
  270.         -- 
  271. shown
  272.  -- so 
  273.  = 0 
  274.             -- i.e. n 
  275. kn = 0 
  276.         -- assume 
  277.  = 1 
  278. ,whatObject
  279. so no 
  280. error 
  281. generated 
  282. sent 
  283. }without 
  284. -- sends 
  285. -- can be 
  286. fa list 
  287. restoreAnimation objectList, animationList
  288. g) > 0
  289. currentObject
  290. closeAllAnimations
  291. he[][]
  292. isOpen 
  293. he[i][12]
  294. he[i][12]
  295. he[i][12]
  296. default
  297. --    these 
  298. utilities getting 
  299.  a single 
  300.  rowNum
  301.     ss = 
  302. S = 1
  303. l][1] <> 
  304. [i] = 
  305. [14] = 
  306.     ss = 
  307. [14]][i] = 
  308. 1][i] = 
  309. working 
  310. outside 
  311. editor interface
  312. animationCacheEntry 
  313. IT > 1
  314. IT <> 0 
  315. IT <> 0 
  316.             IT = 0
  317. -- Run 
  318.  Properties
  319. anim_Offset
  320. he[][]
  321. IT = 0
  322. he[IT][6]
  323. value
  324. he[][]
  325. IT <> 0 
  326. isType(POINT, 
  327. he[IT][6] = 
  328. r= -1
  329. he[][]
  330. IT = 0
  331. he[IT][2]
  332. he[][]
  333. IT <> 0 
  334. he[IT][2] = 
  335. -- Persistent 
  336. anim_NumRepetitions
  337. he[][]
  338. IT = 0
  339. ) > 0
  340. he[IT][7]
  341. he[][]
  342. IT <> 0 
  343. he[IT][7] = 
  344. 4  = 
  345. K ) > 0
  346. V [7] = 
  347. anim_CelAnimation
  348. he[][]
  349. IT = 0
  350.  ) > 0
  351. he[IT][4]
  352. he[][]
  353. IT <> 0 
  354. he[IT][4] = 
  355. }! = 
  356. !) > 0
  357. ![4] = 
  358. anim_ShowAllSteps 
  359. he[][]
  360. IT = 0
  361. &") > 0
  362. 4"[5]
  363. he[IT][5]
  364. he[][]
  365. IT <> 0 
  366. he[IT][5] = 
  367. ") > 0
  368. "[5] = 
  369. anim_Duration 
  370. C he[][]
  371. IT = 0
  372. Z# = 
  373. r#) > 0
  374.  he[IT][8]
  375.  he[][]
  376. IT <> 0 
  377. !he[IT][8] = 
  378. 0$) > 0
  379. ;$[8] = 
  380. anim_NumSteps 
  381. !he[][]
  382. IT = 0
  383. $) > 0
  384. "he[IT][9]
  385. $"he[][]
  386. IT <> 0 
  387. a"he[IT][9] = 
  388. e% = 
  389. |%) > 0
  390. %[9] = 
  391. anim_StepsPerCell 
  392. "he[][]
  393. IT = 0
  394. &) > 0
  395. &[11]
  396. Q#he[IT][11]
  397. v#he[][]
  398. IT <> 0 
  399. 0$", 
  400. #he[IT][11] = 
  401. &) > 0
  402. &[11] = 
  403. 0') > 0
  404. ='[6]
  405. q' = 
  406. ') > 0
  407. '[6] = 
  408. -- Read Only (persistent)
  409. anim_StartSize 
  410. () > 0
  411. ([15]
  412. anim_EndSize 
  413. X( = 
  414. o() > 0
  415. |([16]
  416. anim_StartTime
  417. %he[][]
  418. IT = 0
  419. &he[IT][1]
  420. anim_elapsedTime
  421. -&he[][]
  422. IT = 0
  423. &() - 
  424. c&he[IT][1]
  425. anim_currentTime
  426. % stuff
  427. updateAnimations
  428. )ns, 
  429. &he[][]
  430.  *ns)
  431. whatAnim = 
  432. ;'he[i][12]
  433. *ns) > 0
  434. 'he[i][12]
  435. 'he[i][12]
  436. +ns) = 0
  437. animTimer whatHandle, whatMsg, wparam
  438. Q,animTimerID, 
  439. "USER"
  440.         INT     anim_setTimer =        SetTimer        (
  441. 0killTimer =    KillTimer        (
  442. = 4843
  443. `(sysClientHandle,
  444. ,20,0)         
  445. ("Could 
  446. xsetup 
  447. #-, no 
  448. +- will 
  449.     translateWindowMessage 
  450.         0x001F     
  451.         0x0113     
  452. anim_killTimer(
  453.     untranslateWindowMessage 0
  454. ectAnimati
  455.  vDnDnD
  456. setUpDlls
  457. linkSysbook
  458. Author
  459. s_anim_idleAnimations
  460. Canim_StartPosition
  461. anim_edit
  462. anim_animationSettings
  463. Canim_StartPosition
  464. Canim_startPosition
  465. anim_animationSettings
  466. moved
  467. timeGetTime
  468. a_timeGetTime
  469. mmSystem.dll
  470. setUpDlls
  471. ,&H.&
  472. ,&H.&
  473. 1+V!8
  474. ,&H.&
  475. ,&H.&
  476. s_anim_animationCache
  477. }gyieldApp
  478. ZstopAnimation
  479. s_anim_idleAnimations
  480. }playStep
  481. objectAnimation
  482. Reset by play command
  483. YdoneAnimatingNotify
  484. theTarget
  485. 9a_timeGetTime
  486. _stopAnimTimer
  487. startAnimTimer
  488. aborted by the user
  489. playAnimation
  490. 1,    "V
  491. s_anim_animationCache
  492. _stopAnimTimer
  493. s_anim_idleAnimations
  494. YdoneAnimatingNotify
  495. notifyObj
  496. stopAnimation
  497. 1+V!8
  498. Author
  499. anim_CurrentStep
  500. objectAnimation
  501. updateCel
  502. jumpToStep
  503. whichStep
  504. Author
  505. anim_CurrentStep
  506. objectAnimation
  507. updateCel
  508. jumpToPercent
  509. s_anim_animationCache
  510. successful
  511. ZstopAnimation
  512. 9a_timeGetTime
  513. updateCel
  514. playStep
  515. 1+V!!
  516. 1+V!8
  517. updateCel
  518. doneAnimatingNotify
  519. currentAnim
  520. jumpToStep
  521. currentObject
  522. restoreAnimation
  523. .'+    +F
  524. ,&H.&
  525. s_anim_animationCache
  526. _stopAnimTimer
  527. s_anim_idleAnimations
  528. ZstopAnimation
  529. restoreAnimation
  530. aborted by the user
  531. default
  532. closeAllAnimations
  533. anim_animationSettings
  534. objectAnimation
  535. anim_animationSettings
  536. anim_animationSettings
  537. objectAnimation
  538. 1,    "V
  539. s_anim_idleAnimations
  540. animationCacheEntry
  541. s_anim_animationCache
  542. ULanimationCacheEntry
  543. anim_Offset
  544. s_anim_animationCache
  545. ULanimationCacheEntry
  546. anim_Offset
  547. s_anim_animationCache
  548. ULanimationCacheEntry
  549. anim_CurrentStep
  550. s_anim_animationCache
  551. ULanimationCacheEntry
  552. anim_CurrentStep
  553. s_anim_animationCache
  554. objectAnimation
  555. ULanimationCacheEntry
  556. whichAnimation
  557. anim_NumRepetitions
  558. s_anim_animationCache
  559. objectAnimation
  560. ULanimationCacheEntry
  561. whichAnimation
  562. objectAnimation
  563. anim_NumRepetitions
  564. s_anim_animationCache
  565. objectAnimation
  566. ULanimationCacheEntry
  567. whichAnimation
  568. anim_CelAnimation
  569. s_anim_animationCache
  570. objectAnimation
  571. ULanimationCacheEntry
  572. whichAnimation
  573. objectAnimation
  574. anim_CelAnimation
  575. s_anim_animationCache
  576. objectAnimation
  577. ULanimationCacheEntry
  578. anim_ShowAllSteps
  579. s_anim_animationCache
  580. objectAnimation
  581. ULanimationCacheEntry
  582. objectAnimation
  583. anim_ShowAllSteps
  584. s_anim_animationCache
  585. objectAnimation
  586. ULanimationCacheEntry
  587. anim_Duration
  588. s_anim_animationCache
  589. objectAnimation
  590. ULanimationCacheEntry
  591. objectAnimation
  592. anim_Duration
  593. s_anim_animationCache
  594. objectAnimation
  595. ULanimationCacheEntry
  596. anim_NumSteps
  597. s_anim_animationCache
  598. objectAnimation
  599. ULanimationCacheEntry
  600. objectAnimation
  601. anim_NumSteps
  602. s_anim_animationCache
  603. objectAnimation
  604. ULanimationCacheEntry
  605. anim_StepsPerCell
  606. s_anim_animationCache
  607. objectAnimation
  608. ULanimationCacheEntry
  609. objectAnimation
  610. anim_StepsPerCell
  611. objectAnimation
  612. anim_StartPosition
  613. objectAnimation
  614. objectAnimation
  615. anim_StartPosition
  616. objectAnimation
  617. anim_StartSize
  618. objectAnimation
  619. anim_EndSize
  620. s_anim_animationCache
  621. ULanimationCacheEntry
  622. anim_StartTime
  623. s_anim_animationCache
  624. ULanimationCacheEntry
  625. 9a_timeGetTime
  626. anim_elapsedTime
  627. 9a_timeGetTime
  628. anim_currentTime
  629. ,&H.&
  630. ,&H.&
  631. s_anim_animationCache
  632. ZstopAnimation
  633. s_anim_idleAnimations
  634. whatAnim
  635. }playStep
  636. _stopAnimTimer
  637. aborted by the user
  638. updateAnimations
  639. updateAnimations
  640. animTimerID
  641. animTimer
  642. zIanim_setTimer
  643. SetTimer
  644. anim_setTimer
  645. KillTimer
  646. anim_killTimer
  647. Could not setup animation, no animations will play.
  648. animTimer
  649. animTimer
  650. closeAllAnimations
  651. animTimerID
  652. startAnimTimer
  653. Rlanim_killTimer
  654. animTimer
  655. animTimerID
  656. stopAnimTimer
  657. L$closeAllAnimations
  658. author
  659. 1,    "V
  660. s_anim_idleAnimations
  661. animationCacheEntry
  662. s_anim_ani
  663. Jhx!h+
  664.